home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / ISSUE08 / DATADICT / APPLYDD.PAS < prev    next >
Encoding:
Pascal/Delphi Source File  |  1996-02-12  |  2.5 KB  |  94 lines
  1. unit Applydd;
  2.  
  3. interface
  4.  
  5. uses
  6.   SysUtils, WinTypes, WinProcs, Messages, Classes, Graphics, Controls,
  7.   StdCtrls, Forms, DBCtrls, DB, DBTables, Mask, ExtCtrls, DButils;
  8.  
  9. type
  10.   TApplyDDform = class(TForm)
  11.     DBNavigator: TDBNavigator;
  12.     Panel1: TPanel;
  13.     MyDataSource: TDataSource;
  14.     MyTable: TTable;
  15.     MyDatabase: TDatabase;
  16.     MyQuery: TQuery;
  17.     DictTable: TTable;
  18.     GroupBox1: TGroupBox;
  19.     Label1: TLabel;
  20.     Label4: TLabel;
  21.     Label5: TLabel;
  22.     Label6: TLabel;
  23.     Label8: TLabel;
  24.     Label12: TLabel;
  25.     Label13: TLabel;
  26.     EditPHONE: TDBEdit;
  27.     EditEMAIL: TDBEdit;
  28.     EditCITY: TDBEdit;
  29.     EditADDR: TDBEdit;
  30.     MemoNOTES: TDBMemo;
  31.     EditCATAGORY: TDBEdit;
  32.     EditFIRSTNAME: TDBEdit;
  33.     Label3: TLabel;
  34.     EditLASTNAME: TDBEdit;
  35.     Label7: TLabel;
  36.     Label17: TLabel;
  37.     Label18: TLabel;
  38.     EditLASTMAILTO: TDBEdit;
  39.     EditLASTMFROM: TDBEdit;
  40.     EditNumMailFm: TDBEdit;
  41.     EditNumMailTo: TDBEdit;
  42.     Label2: TLabel;
  43.     Label15: TLabel;
  44.     EditPOSTALCODE: TDBEdit;
  45.     Label11: TLabel;
  46.     EditSTATE: TDBEdit;
  47.     Label9: TLabel;
  48.     Label10: TLabel;
  49.     EditCOUNTRY: TDBEdit;
  50.     EditLASTPHONE: TDBEdit;
  51.     Label14: TLabel;
  52.     procedure FormActivate(Sender: TObject);
  53.   private
  54.     FDataDictName : string;
  55.     { private declarations }
  56.   public
  57.     { public declarations }
  58.   end;
  59.  
  60.  
  61. var
  62.   ApplyDDform: TApplyDDform;
  63.  
  64. implementation
  65. uses dialogs, utils, mystrng;
  66. {$R *.DFM}
  67.  
  68. procedure TApplyDDform.FormActivate(Sender: TObject);
  69. begin
  70.   FdataDictName := AddBackSlash(extractfilePath(application.exename))+'datadict.dbf';
  71.   DictCtrl.OpenDictionary(FdataDictName, MyDataBase, DictTable, MyQuery, MyDataSource);
  72.   if openDB(MyDataBase, myTable, myQuery, myDataSource,
  73.          ExtractFilePath(application.exename), 'contact.dbf')
  74.      then begin
  75.        MyDataSource.enabled := true;
  76.        MyTable.open;
  77.        DictCtrl.SetCurrentFieldTo('Contact.dbf','FirstName');
  78.        EditFirstName.hint := DictCtrl.hint;
  79.        ShowHint := true;
  80.        DictCtrl.SetCurrentFieldTo('Contact.dbf','LastName');
  81.        MyTable.findfield('LASTNAME').required := DictCtrl.required;
  82.        DictCtrl.setCurrentFieldTo('contact.dbf','NumMailTo');
  83.        TSmallIntField(MyTable.findfield('NumMailTo')).minvalue := DictCtrl.minValue;
  84.        TSmallIntField(MyTable.findfield('NumMailTo')).maxvalue := DictCtrl.maxValue;
  85.        MyTable.edit;
  86.        end
  87.      else begin
  88.        messagedlg('Problem opening database', mtinformation, [mbOK],0);
  89.        end;
  90.  
  91. end;
  92.  
  93. end.
  94.